home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-03 / qbfaqr01.zip / DIR.BI < prev    next >
Text File  |  1992-02-11  |  1KB  |  52 lines
  1. DECLARE SUB SortDir (SNumberOfFiles AS INTEGER)
  2. DECLARE FUNCTION ReadDir& (RDIR$, RFTYPE$)
  3. DECLARE FUNCTION FreeSpace& (FCurrentDrive AS INTEGER)
  4. DECLARE FUNCTION GetCurrentDrive% ()
  5. DECLARE FUNCTION GetNumberOfDrives% ()
  6. DECLARE FUNCTION GetVolumeName$ (VDir$)
  7. DECLARE FUNCTION GetFile% ()
  8.  
  9. TYPE RegTypeX
  10.         AX AS INTEGER
  11.         BX AS INTEGER
  12.         CX AS INTEGER
  13.         DX AS INTEGER
  14.         BP AS INTEGER
  15.         SI AS INTEGER
  16.         DI AS INTEGER
  17.         FLAGS AS INTEGER
  18.         DS AS INTEGER
  19.         ES AS INTEGER
  20. END TYPE
  21.  
  22. TYPE DTA
  23.         RES AS STRING * 21
  24.         ATT AS STRING * 1
  25.         Time AS INTEGER
  26.         Date AS INTEGER
  27.         Size AS LONG
  28.         FName AS STRING * 98
  29. END TYPE
  30.  
  31. TYPE TDTA
  32.         Time AS STRING * 8
  33.         Date AS STRING * 10
  34.         Size AS LONG
  35.         FName AS STRING * 12
  36.         D AS INTEGER
  37.         R AS INTEGER
  38.         A AS INTEGER
  39.         S AS INTEGER
  40.         H AS INTEGER
  41. END TYPE
  42.  
  43. COMMON SHARED TDInfo() AS TDTA
  44. COMMON SHARED Dinfo AS DTA
  45. COMMON SHARED Dregs AS RegTypeX
  46. COMMON SHARED NumberOfFIles AS INTEGER
  47.  
  48. CONST MaxFiles = 250  '***Maximum entries in a directory***
  49. CONST True = -1
  50. CONST FALSE = NOT True
  51.  
  52.